home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-11 / rptc5.zip / DEMO.PRG < prev    next >
Text File  |  1992-09-15  |  2KB  |  44 lines
  1. ***************************************************************************
  2. *       DEMO PROGRAM FOR LINKABLE REPORT WRITER - CLIPPER 5.01            *
  3. ***************************************************************************
  4. *---------
  5. SET COLOR TO W/N
  6. CLEAR
  7. EXTERNAL _d_rpt
  8.  
  9. *** YOUR OTHER PROGRAM CODE
  10.  
  11. ***************************************************************************
  12. *          CALL THE REPORT WRITER PASSING IT YOUR OWN TITLE               *
  13. ***************************************************************************
  14. *                                                                         *
  15. *       PARM 1  TITLE    = YOUR TITLE FOR PROGRAM                         *
  16. *       PARM 2  COLOR #1 = BASE COLOR FOR APPLICATION                     *
  17. *       PARM 3  COLOR #2 = BACKGROUND CONTRAST WINDOWS                    *
  18. *       PARM 4  COLOR #3 = COLOR OF THE TITLE YOU PASS                    *
  19. *       PARM 5  COLOR #4 = LASER SETUP MENU COLORS                        *
  20. *       PARM 6  COLOR #5 = PRINTER ERROR BLINK MESSAGE COLOR              *
  21. *       PARM 7  TEST INDEXES .T./.F. (TURN TESTING ON/OFF)                *
  22. *       PARM 8  ALLOW/RESTRICT USER CREATION OF NEW INDEXES               *
  23. *       PARM 9  ALLOW/RESTRICT USER SAVING OF QUERY DEFINITIONS           *
  24. *                                                                         *
  25. ***************************************************************************
  26.  
  27.  DO _d_rpt WITH "Y o u r   T i t l e   o r   C o r p o r a t e   N a m e" , "N/W,+W/B","N/W","+GR/N", ;
  28.                       "N/W,B/W","+GR*/W",.T.,.T.,.T.
  29. *DO _d_rpt WITH "Y o u r   T i t l e   o r   C o r p o r a t e   N a m e" , "N/W,+W/RB","N/W","+GR/N", ;
  30. *                     "N/W,RB/W","+GR*/W",.F.,.F.,.F.
  31. *DO _d_rpt WITH "Y o u r   T i t l e   o r   C o r p o r a t e   N a m e" , "+W/B,B/W","B/W","+W/N", ;
  32. *                     "+W/B,+GR/B","+R*/B",.T.,.T.,.T.
  33. *DO _d_rpt WITH "Y o u r   T i t l e   o r   C o r p o r a t e   N a m e" , "W/R,R/W","R/W","+W/N", ;
  34. *                    "W/R,+GR/R","+W*/R",.F.,.F.,.F.
  35. *DO _d_rpt WITH "Y o u r   T i t l e   o r   C o r p o r a t e   N a m e" , "N/BG,W/N","N/W","+GR/N", ;
  36. *                    "N/BG,+W/BG","+R*/BG",.T.,.T.,.T.
  37.  
  38.  
  39. @ 10,25 SAY " Your Program Continues Execution "
  40. @ 15,0  SAY ""
  41.  
  42. WAIT
  43. QUIT
  44.